home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 #2 / Ham Radio 2000 - Volume 2.iso / HAMV2 / MISC / HCAL-27 / YAGISPAC.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1997-01-29  |  4.2 KB  |  180 lines
  1. 10  'YAGISPAC - Yagi Element Spacing - 27 MAR 96 rev. 28 SEP 96
  2. 20  IF EX$=""THEN EX$="EXIT"
  3. 30  CLS:KEY OFF
  4. 40  COLOR 7,0,1
  5. 50  U$="####.###"
  6. 60  UL$=STRING$(80,205)
  7. 70  DIM B(6,3)
  8. 80  '
  9. 90  DATA .4,7.1,3,  .8,9.2,5,  1.2,10.2,6,  2.2,12.25,12,  3.2,13.4,17
  10. 100  DATA 4.2,14.2,15
  11. 110  FOR Z=1 TO 6:FOR Y=1 TO 3:READ B(Z,Y):NEXT Y:NEXT Z
  12. 120  GOTO 190
  13. 130  '
  14. 140  '.....format input line
  15. 150  LOCATE CSRLIN-1:PRINT SPC(7);
  16. 160  LOCATE CSRLIN,47:PRINT STRING$(7,".");USING U$;ZZ;
  17. 170  RETURN
  18. 180  '
  19. 190  '.....start
  20. 200  CLS
  21. 210  COLOR 15,2
  22. 220  PRINT " YAGI ELEMENT SPACING (VHF/UHF)";TAB(57)"by George Murphy VE3ERP ";
  23. 230  COLOR 1,0:PRINT STRING$(80,223);
  24. 240  COLOR 7,0
  25. 250  GOSUB 1380            'preface
  26. 260  COLOR 0,7
  27. 270  PRINT
  28. 280  LOCATE ,22:PRINT " Press 1 to continue or 0 to quit....";
  29. 290  COLOR 7,0
  30. 300  Z$=INKEY$:IF Z$=""THEN 300
  31. 310  IF Z$="0"THEN CLS:RUN EX$
  32. 320  IF Z$="1"THEN 350
  33. 330  GOTO 300
  34. 340  '
  35. 350  VIEW PRINT 3 TO 24:CLS:VIEW PRINT:LOCATE 3
  36. 360  PRINT "        U.S.A. NATIONAL BUREAU of STANDARDS RECOMMENDED DIMENSIONS:"
  37. 370  PRINT UL$;
  38. 380  INPUT " ENTER: Centre frequency of band of interest....(Mhz)";CF
  39. 390  ZZ=CF:GOSUB 140:PRINT " MHz"
  40. 400  WL=300/CF
  41. 410  PRINT "        Wavelength...................................";USING U$;WL;
  42. 420  PRINT " metres"
  43. 430  PRINT UL$;
  44. 440  PRINT " Press number in ( ) to select antenna:"
  45. 450  PRINT UL$;
  46. 460  PRINT TAB(11)"GAIN";TAB(30)"B O O M   L E N G T H"
  47. 470     FOR Z=1 TO 6
  48. 480  DB=B(Z,2)
  49. 490  LM=B(Z,1)*WL:LF=LM/0.3048
  50. 500  EL=B(Z,3)
  51. 510  PRINT " (";Z;")";TAB(7);USING "####.##";DB;
  52. 520  PRINT " dB";USING "######.###";LM;
  53. 530  PRINT " m.(";USING "###.###";LF;
  54. 540  PRINT " ft.) with";USING "###";EL;
  55. 550  PRINT " elements
  56. 560     NEXT Z
  57. 570  '
  58. 580  Z$=INKEY$:IF Z$=""THEN 580
  59. 590  Z=VAL(Z$)
  60. 600  IF Z>=1 AND Z<=6 THEN 610 ELSE 580
  61. 610  VIEW PRINT 7 TO 24:CLS:VIEW PRINT:LOCATE 7
  62. 620  PRINT "        Number of elements...........................";
  63. 630  PRINT USING "####";B(Z,3)
  64. 640  PRINT "        Boom distance from first to last element.....";
  65. 650  PRINT USING "####.##";B(Z,1);:PRINT " x wavelength"
  66. 660  PRINT "        Gain.........................................";
  67. 670  PRINT USING "####.##";B(Z,2);:PRINT " dB"
  68. 680  PRINT UL$;
  69. 690  X=B(Z,1)             'multiplier
  70. 700  DB=B(Z,2)            'gain
  71. 710  EL=B(Z,3)            'number of elements
  72. 720  LM=X*WL:LF=LM/0.3048  'boom length
  73. 730  A=0.2*WL              'reflector spacing in m.
  74. 740  B=(LM-A)/(EL-2)      'all other element spacings
  75. 750  R=11:C=37-EL*2
  76. 760  GOSUB 950
  77. 770  FOR J=1 TO EL-3:GOSUB 1090:NEXT J
  78. 780  GOSUB 1230
  79. 790  COLOR 7,0
  80. 800  C=C+5:LOCATE R+1
  81. 810  LOCATE ,C:PRINT "R = Reflector"
  82. 820  LOCATE ,C:PRINT "D = Driven Element"
  83. 830  LOCATE ,C:PRINT "d = Directors (";EL-2;")"
  84. 840  LOCATE ,C:PRINT "R to last d =";USING "###.###";LM;
  85. 850  PRINT " m.=";USING "###.###";LF;
  86. 860  PRINT " ft."
  87. 870  LOCATE ,C:PRINT "A =";SPC(11);USING "##.###";A;:PRINT " m.=";
  88. 880  PRINT USING "###.###";A/0.3048;:PRINT " ft."
  89. 890  LOCATE ,C:PRINT "B =";SPC(11);USING "##.###";B;:PRINT " m.=";
  90. 900  PRINT USING "###.###";B/0.3048;:PRINT " ft."
  91. 910  PRINT
  92. 920  GOSUB 1480
  93. 930  GOTO 1620
  94. 940  '
  95. 950  '.....diagram 1
  96. 960  COLOR 0,7
  97. 970  LOCATE R
  98. 980  LOCATE ,C:PRINT "    "
  99. 990  LOCATE ,C:PRINT " R D"
  100. 1000  LOCATE ,C:PRINT " CALL OPEN"
  101. 1010  LOCATE ,C:PRINT " CALL OPEN"
  102. 1020  LOCATE ,C:PRINT " INSTRTHENTAB("
  103. 1030  LOCATE ,C:PRINT " CALLAOPEN"
  104. 1040  LOCATE ,C:PRINT " CALL OPEN"
  105. 1050  LOCATE ,C:PRINT "    "
  106. 1060  COLOR 7,0
  107. 1070  C=C+2
  108. 1080  RETURN
  109. 1090  '.....diagram 2
  110. 1100  COLOR 0,7
  111. 1110  LOCATE R
  112. 1120  C=C+2
  113. 1130  LOCATE ,C:PRINT "  "
  114. 1140  LOCATE ,C:PRINT " d"
  115. 1150  LOCATE ,C:PRINT " CALL"
  116. 1160  LOCATE ,C:PRINT " CALL"
  117. 1170  LOCATE ,C:PRINT "THENINSTR"
  118. 1180  LOCATE ,C:PRINT " CALL"
  119. 1190  LOCATE ,C:PRINT "BCALL"
  120. 1200  LOCATE ,C:PRINT "  "
  121. 1210  COLOR 7,0
  122. 1220  RETURN
  123. 1230  '.....diagram 3
  124. 1240  COLOR 0,7
  125. 1250  LOCATE R
  126. 1260  C=C+2
  127. 1270  LOCATE ,C:PRINT "   "
  128. 1280  LOCATE ,C:PRINT " d "
  129. 1290  LOCATE ,C:PRINT " CALL "
  130. 1300  LOCATE ,C:PRINT " CALL "
  131. 1310  LOCATE ,C:PRINT "THENINSTR "
  132. 1320  LOCATE ,C:PRINT " CALL "
  133. 1330  LOCATE ,C:PRINT "BCALL "
  134. 1340  LOCATE ,C:PRINT "   "
  135. 1350  COLOR 7,0
  136. 1360  RETURN
  137. 1370  '
  138. 1380  '.....preface
  139. 1390  T=7
  140. 1400  PRINT TAB(T);
  141. 1410  PRINT "This program computes element spacings and boom lengths developed"
  142. 1420  PRINT TAB(T);
  143. 1430  PRINT "by the U.S.A. National Bureau of Standards (NBS) for optimum VHF"
  144. 1440  PRINT TAB(T);
  145. 1450  PRINT "and UHF Yagi-antenna performance."
  146. 1460  RETURN
  147. 1470  '
  148. 1480  '.....element note
  149. 1490  T=7
  150. 1500  PRINT TAB(T);
  151. 1510  PRINT "Absolute element lengths are dependent upon the element diameter,"
  152. 1520  PRINT TAB(T);
  153. 1530  PRINT "placement on boom, whether or not the elements are insulated from"
  154. 1540  PRINT TAB(T);
  155. 1550  PRINT "the boom and whether element diameters are constant or tapered."
  156. 1560  PRINT TAB(T);
  157. 1570  PRINT "Additional design data are available in the ARRL ANTENNA BOOK and"
  158. 1580  PRINT TAB(T);
  159. 1590  PRINT "the ARRL ELECTRONICS DATA BOOK, 2nd Edition, pages 7-09 to 7-11."
  160. 1600  RETURN
  161. 1610  '
  162. 1620  '.....end
  163. 1630  GOSUB 1670
  164. 1640  GOTO 190
  165. 1650  END
  166. 1660  '
  167. 1670  'HARDCOPY
  168. 1680  GOSUB 1790:LOCATE 25,2:COLOR 14,6
  169. 1690  PRINT " Press 1 to print screen, 2 to print screen & ";
  170. 1700  PRINT "advance paper, or 3 to continue.";:COLOR 7,0
  171. 1710  Z$=INKEY$:IF Z$="3"THEN GOSUB 1790:RETURN
  172. 1720  IF Z$="1"OR Z$="2"THEN GOSUB 1790:GOTO 1740
  173. 1730  GOTO 1710
  174. 1740  FOR QX=1 TO 24:FOR QY=1 TO 80
  175. 1750  LPRINT CHR$(SCREEN(QX,QY));
  176. 1760  NEXT QY:NEXT QX
  177. 1770  IF Z$="2"THEN LPRINT CHR$(12)
  178. 1780  GOTO 1680
  179. 1790  LOCATE 25,1:PRINT STRING$(80,32);:RETURN
  180.